cls
sele 1
use notasa   
index on numero    to inotasa   
set index to inotasa              
go bottom
mnota = numero
@ 0,0 say mnota

sele 2
use itemadmin
go top
while .not. eof()
 @ 0,20 say nota
 if nota > mnota
    dele
 endif
 skip
enddo
tone(600,3)
tone(600,2)
tone(600,1)

pack 


sele 1
use notass   
index on numero    to inotasa   
set index to inotass              
go bottom
mnota = numero
@ 2,0 say mnota

sele 2
use itemsegu
go top
while .not. eof()
 @ 2,20 say nota
 if nota > mnota
    dele
 endif
 skip
enddo
tone(600,3)
tone(600,2)
tone(600,1)
pack

! del *.ntx
